home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / fbuild13.arc / W4WMACRO.TXT < prev   
Text File  |  1991-12-09  |  3KB  |  83 lines
  1. ' AddItemToProgMan
  2. '
  3. ' This is a Word for Windows macro which allows you to add the current document to the specified
  4. ' Program Manager Group.  This was written for Word for Windows v2.0, but it may also work in
  5. ' Word for Windows v1.0 and v1.1 as well.  I haven't tested it, so I don't know.
  6. '
  7. ' To install this macro, do the following:
  8. '
  9. '    1. open this document in Word for Windows.
  10. '    2. select (i.e. highlight) the entire document and select Edit, Copy (Ctrl-Ins)
  11. '    3. Select "Macros..." from the "Tools" menu (Alt-O, M)
  12. '    4. Type in a macro name (e.g. "AddItemToProgMan")
  13. '    5. Push the "Edit" button (Alt-E)
  14. '    6. Paste the macro in the buffer.
  15. '    7. Close the window, saving changes.
  16. '    8. If you want, assign it to a key
  17. '    9. When you exit, make sure to save changes to the global glossary
  18.  
  19. Sub MAIN
  20. Begin Dialog UserDialog 410, 170, "Add Item to Program Manager"
  21.     Text 10, 6, 231, 13, "Add Item to Program Manager:"
  22.     Text 47, 25, 73, 13, "Filename:"
  23.     Text 47, 45, 40, 13, "Title:"
  24.     Text 47, 66, 52, 13, "Group:"
  25.     Text 47, 88, 40, 13, "Icon:"
  26.     CheckBox 135, 112, 139, 16, "Save Changes", .Save
  27.     OKButton 105, 135, 88, 21
  28.     CancelButton 211, 135, 88, 21
  29.     TextBox 135, 22, 262, 18, .Filename$
  30.     TextBox 135, 43, 262, 18, .Title$
  31.     TextBox 135, 64, 262, 18, .Group$
  32.     TextBox 135, 85, 263, 18, .Icon$
  33. End Dialog
  34.  
  35.     n$ = LCase$(FileName$())
  36.     m$ = n$
  37.     q$ = Chr$(34)
  38.  
  39.     ' remove path from filename
  40.     For i = 1 To Len(n$)
  41.         If Mid$(n$, i, 1) = "\" Then m$ = Right$(n$, Len(n$) - i)
  42.     Next i
  43.  
  44.     ' remove extension from filename
  45.     i = InStr(m$, ".")
  46.     If i > 0 Then m$ = Left$(m$, i - 1)
  47.  
  48.     Dim dlg As UserDialog
  49.  
  50.     dlg.Group$ = GetProfileString$("Add To Group")
  51.     If dlg.Group$ = "" Then dlg.Group$ = "Documents"
  52.     dlg.Icon$ = GetProfileString$("Add Using Icon")
  53.     If dlg.Icon$ = "" Then dlg.Icon$ = "\win\icons\doc.ico"
  54.     dlg.Filename$ = LCase$(FileName$())
  55.     dlg.Title$ = m$
  56.  
  57.     n = Dialog(dlg)
  58.  
  59.     If n = - 1 Then
  60.         ChanNum = DDEInitiate("PROGMAN", "PROGMAN")
  61.         If ChanNum = 0 Then
  62.             MsgBox "Unable to initiate DDE conversation with ProgMan", "Error"
  63.             return
  64.         Else
  65.             window$ = WindowName$()
  66.             AppActivate "Program Manager", 1
  67.             DDEExecute ChanNum, "[ShowGroup(" + dlg.Group$ + ",6)]"    ' minimize
  68.             DDEExecute ChanNum, "[ShowGroup(" + dlg.Group$ + ",1)]"    ' restore
  69.             cmd$ = "[AddItem(" + dlg.Filename$ + "," + q$ + dlg.Title$ + q$ + "," + dlg.Icon$ + ")]"
  70.             DDEExecute ChanNum, cmd$                ' add file to group
  71.             DDEExecute ChanNum, "[ShowGroup(" + dlg.Group$ + ",6)]"    ' minimize
  72.             DDETerminate ChanNum                    ' terminate discussion
  73.             Activate window$
  74.         EndIf
  75.         If dlg.Save Then
  76.             SetProfileString "Add To Group", dlg.Group$
  77.             SetProfileString "Add Using Icon", dlg.Icon$
  78.         EndIf
  79.  
  80.     EndIf
  81. End Sub
  82.  
  83.